home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / H-L / Invoicer.cpt / Accounts Billed next >
Text File  |  1987-04-07  |  6KB  |  216 lines
  1.  
  2.   CodeChk:
  3.     CLS
  4.     TEXTSIZE (24):TEXTFACE(5)
  5.     PRINT:PRINT SPC(7);"ACCOUNTS BILLED"
  6.     TEXTSIZE(12):TEXTFACE(0)
  7.     INPUT"Customer Code ('help' for code list, 'return' for all): ",CO$
  8.     cd$=CO$
  9.     IF CO$="help" OR CO$ = "h" THEN CLS: GOTO ListCodes
  10.     IF CO$="" THEN Begin
  11.     IF CO$="quit" OR CO$="q" THEN CLS:LOAD "Open Me First",R
  12.     IF LEN(CO$)<>2 THEN RUN
  13. GOSUB Code
  14.   Begin:
  15. CLS
  16.     TEXTSIZE (24):TEXTFACE(5)
  17.     PRINT:PRINT SPC(12);"BILLED"
  18.     WINDOW 2,"",(25,100)-(476,200),3
  19.     TEXTFACE(1):TEXTSIZE(14)
  20.     PRINT SPC(3);"START"
  21.     BUTTON 1,1,"jan",(25,30)-(75,55),1
  22.     BUTTON 2,1,"feb",(95,30)-(145,55),1
  23.     BUTTON 3,1,"mar",(165,30)-(215,55),1
  24.     BUTTON 4,1,"apr",(235,30)-(285,55),1
  25.     BUTTON 5,1,"may",(305,30)-(355,55),1
  26.     BUTTON 6,1,"jun",(375,30)-(425,55),1
  27.     BUTTON 7,1,"jul",(25,65)-(75,90),1
  28.     BUTTON 8,1,"aug",(95,65)-(145,90),1
  29.     BUTTON 9,1,"sep",(165,65)-(215,90),1
  30.     BUTTON 10,1,"oct",(235,65)-(285,90),1
  31.     BUTTON 11,1,"nov",(305,65)-(355,90),1
  32.     BUTTON 12,1,"dec",(375,65)-(425,90),1
  33.     WHILE DIALOG(0)<>1:WEND
  34.     ButtonPushed =DIALOG(1)
  35.     IF ButtonPushed = 1 THEN sd$="01"
  36.     IF ButtonPushed = 2 THEN sd$="02"
  37.     IF ButtonPushed = 3 THEN sd$="03"
  38.     IF ButtonPushed = 4 THEN sd$="04"
  39.     IF ButtonPushed = 5 THEN sd$="05"
  40.     IF ButtonPushed = 6 THEN sd$="06"
  41.     IF ButtonPushed = 7 THEN sd$="07"
  42.     IF ButtonPushed = 8 THEN sd$="08"
  43.     IF ButtonPushed = 9 THEN sd$="09"
  44.     IF ButtonPushed = 10 THEN sd$="10"
  45.     IF ButtonPushed = 11 THEN sd$="11"
  46.     IF ButtonPushed = 12 THEN sd$="12"
  47.     
  48.     
  49.     TEXTSIZE (24):TEXTFACE(5)
  50.     
  51.     WINDOW 3,"",(25,220)-(476,320),3
  52.     TEXTFACE(1):TEXTSIZE(14)
  53.     PRINT SPC(3);"FINISH"
  54.     BUTTON 1,1,"jan",(25,30)-(75,55),1
  55.     BUTTON 2,1,"feb",(95,30)-(145,55),1
  56.     BUTTON 3,1,"mar",(165,30)-(215,55),1
  57.     BUTTON 4,1,"apr",(235,30)-(285,55),1
  58.     BUTTON 5,1,"may",(305,30)-(355,55),1
  59.     BUTTON 6,1,"jun",(375,30)-(425,55),1
  60.     BUTTON 7,1,"jul",(25,65)-(75,90),1
  61.     BUTTON 8,1,"aug",(95,65)-(145,90),1
  62.     BUTTON 9,1,"sep",(165,65)-(215,90),1
  63.     BUTTON 10,1,"oct",(235,65)-(285,90),1
  64.     BUTTON 11,1,"nov",(305,65)-(355,90),1
  65.     BUTTON 12,1,"dec",(375,65)-(425,90),1
  66.     WHILE DIALOG(0)<>1:WEND
  67.     ButtonPushed =DIALOG(1)
  68.     IF ButtonPushed = 1 THEN ed$="01"
  69.     IF ButtonPushed = 2 THEN ed$="02"
  70.     IF ButtonPushed = 3 THEN ed$="03"
  71.     IF ButtonPushed = 4 THEN ed$="04"
  72.     IF ButtonPushed = 5 THEN ed$="05"
  73.     IF ButtonPushed = 6 THEN ed$="06"
  74.     IF ButtonPushed = 7 THEN ed$="07"
  75.     IF ButtonPushed = 8 THEN ed$="08"
  76.     IF ButtonPushed = 9 THEN ed$="09"
  77.     IF ButtonPushed = 10 THEN ed$="10"
  78.     IF ButtonPushed = 11 THEN ed$="11"
  79.     IF ButtonPushed = 12 THEN ed$="12"
  80.     
  81.     IF ed$ < sd$ THEN BEEP: RUN
  82.     WINDOW OUTPUT 1: CLS
  83.     WINDOW CLOSE 2:WINDOW CLOSE 3
  84.  
  85.   Strt:
  86.    OPEN "Accts Billed" FOR INPUT AS #1
  87.    WINDOW 2,"",(25,50)-(476,280),3
  88.   Reedata:
  89.    IF EOF(1) THEN Finish
  90.    INPUT#1, ts$
  91.    INPUT#1, CO$
  92.    INPUT#1,db$
  93.    INPUT#1,CN$
  94.    INPUT #1, CB$
  95.    IF LEFT$(db$,2)<sd$ THEN Reedata
  96.    IF LEFT$(db$,2)>ed$ THEN Finish
  97.    IF cd$="" OR cd$="all" THEN Skipit
  98.    IF CO$<>cd$ THEN Reedata
  99.  Skipit:
  100.    TEXTFACE(0)
  101.    PRINT SPC(1); db$;SPC(2);
  102.    TEXTFACE(1)
  103.    IF LEN (CN$) >34 THEN PRINT LEFT$(CN$,34);"…";TAB(42);
  104.    IF LEN (CN$) > 34 THEN GOTO Skpt
  105.    PRINT CN$;TAB(42);
  106.  Skpt:
  107.    PR=VAL(CB$)
  108.    PRINT USING "$#####.##";PR
  109.    FT=FT+PR
  110.    IF EOF(1) THEN Finish
  111.    GOTO Reedata
  112.   Finish:
  113.     PRINT CHR$(13);
  114.     TEXTSIZE(18):TEXTFACE(1)
  115.     PRINT"TOTAL BILLED:";
  116.     TEXTSIZE(12)
  117.     PRINT TAB(42);
  118.     PRINT USING"$#####.##";FT;
  119.  
  120.     CLOSE #1
  121.  
  122.   YourChoice:
  123.     WINDOW 3,"",(25,285)-(476,330),-3
  124.     BUTTON 1,1,"again",(55,10)-(130,35),1
  125.     BUTTON 2,1,"print",(192,10)-(267,35),1
  126.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  127.     WHILE DIALOG(0)<>1:WEND
  128.     ButtonPushed =DIALOG(1)
  129.     IF ButtonPushed =1 THEN FT=0:RUN
  130.     IF ButtonPushed =2 THEN FT=0:GOTO PrntWarning
  131.     IF ButtonPushed =3 THEN WINDOW CLOSE 2:WINDOW CLOSE 3: CLS: LOAD "Open Me First",R
  132.  
  133.   PrntWarning:
  134.     WINDOW 4,"",(115,120)-(375,200),-2
  135.     TEXTFACE(1)
  136.     PRINT"Please make sure printer is turned"
  137.     PRINT"on and loaded with paper."
  138.     BUTTON 1,1,"OK",(105,45)-(165,65),1
  139.     BUTTON 2,1,"cancel",(185,45)-(245,65),1
  140.     WHILE DIALOG(0)<>1:WEND
  141.     ButtonPushed =DIALOG(1)
  142.     IF ButtonPushed=1 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO Prnt
  143.     IF ButtonPushed=2 THEN WINDOW CLOSE 4:WINDOW OUTPUT 2:CLS:GOTO YourChoice
  144.  
  145.   Prnt:
  146.    LPRINT CHR$ (27);"X";
  147.    LPRINT "BILLED  (";sd$;" - ";ed$;", "; RIGHT$ (DATE$,4);")"
  148.    LPRINT CHR$ (27);"Y";
  149.    OPEN "Accts Billed" FOR INPUT AS #1
  150.    LPRINT CHR$(13)
  151.   Readata:
  152.    IF EOF(1) THEN Finis
  153.    INPUT#1, ts$
  154.    INPUT#1, CO$
  155.    INPUT#1,db$
  156.    INPUT#1,CN$
  157.    INPUT #1, CB$
  158.    IF LEFT$(db$,2)<sd$ THEN Readata
  159.    IF LEFT$(db$,2)>ed$ THEN Finis
  160.    IF cd$="" OR cd$="all" THEN Skippit
  161.    IF CO$<>cd$ THEN Readata
  162.  Skippit:
  163.    LPRINT db$;SPC(2);
  164.    IF LEN (CN$) >43 THEN LPRINT LEFT$(CN$,43);"...";TAB(60);
  165.    IF LEN (CN$) >43 THEN Skipt
  166.    LPRINT CN$;TAB(60);
  167.  Skipt:
  168.    PR=VAL(CB$)
  169.    LPRINT USING "$#####.##";PR
  170.    FT=FT+PR
  171.    IF EOF(1) THEN Finis
  172.    GOTO Readata
  173.   Finis:
  174.    CLOSE #1
  175.    LPRINT CHR$(13)
  176.    LPRINT"TOTAL BILLED:";TAB(60);
  177.    LPRINT USING"$######.##";FT
  178.    GOTO YourChoice
  179.  
  180.  Code:
  181.     CLOSE #1
  182.     OPEN "Customers A" FOR INPUT AS #1
  183.   ReedIt:
  184.     IF EOF(1) THEN CLOSE #1: CLS:TEXTFACE(1):PRINT:PRINT"This customer not on file…":FOR m = 1 TO 2500:NEXT:CLS:RUN
  185.     INPUT #1,CD$,CN$,AD1$,AD2$,AD3$,ZP,ts$
  186.     IF CD$=CO$ THEN CLOSE #1:GOTO Begin
  187.     GOTO ReedIt
  188.   ListCodes:
  189. CLS
  190.   Lst:
  191.      OPEN "Customers B" FOR INPUT AS #1
  192.      WINDOW 2,"",(25,50)-(476,280),3
  193.   OpFile:
  194.      TEXTFACE(1)
  195.      IF EOF(1) THEN CLOSE #1:TEXTFACE(0):GOTO NewWndw
  196.      INPUT #1,CD$,CN$,ts$
  197.      PRINT CD$;
  198.      PRINT" - ";CN$
  199.      GOTO OpFile
  200.  
  201.   NewWndw:
  202.  WINDOW 3,"",(25,285)-(476,330),-3
  203.     BUTTON 1,1,"again",(55,10)-(130,35),1
  204.     BUTTON 2,1,"enter info",(192,10)-(267,35),1
  205.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  206.       WHILE DIALOG(0)<>1:WEND
  207.       ButtonPushed = DIALOG(1)
  208.       IF ButtonPushed = 1 THEN Lst
  209.       IF ButtonPushed  = 2 THEN  WINDOW CLOSE 2:WINDOW CLOSE 3:RUN
  210.       IF ButtonPushed  = 3 THEN LOAD "Open Me First",R
  211.  
  212.  
  213.     
  214.   
  215.     
  216.